library(tidyverse)
library(marginaleffects)

rm(list=ls())

here::i_am("replication_material.RProj")

source("r_code/recode.R")
#recodes the original data and prepares it for the analysis

source("r_code/descriptives.R")
#provide the code for the descriptive statistics table A1.

source("r_code/analysis.R")
#provides the code for all analyses shown in the main paper and appendix. 
